type
  orientation = enum
    portrait=100, landscape=200

var o1=landscape
var o2=portrait
var o3=orientation.landscape
var o4:orientation=orientation(200)

echo o1, ' ', ord(o1)
echo o2, ' ', ord(o2)
echo o3, ' ', ord(o3)
echo o4, ' ', ord(o4)

